﻿<!-- #include file="mymin.asp" -->
<title>论坛管理</title></head><body><div class='main400'>
<%

dim p
p=getN("p",1)
if p<1 then p=1

w "<a href=""admin.asp?sid="&sid&""">[新建论坛]</a><br/>"

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select classid,class from 74hu_class where lx=3 order by classid desc",myconn,1,1
If Not rs.eof	Then
	dim pagesize,count,page,i,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共"&count&"个论坛<br/>"
	For i=1 To PageSize
	If rs.eof Then Exit For
		id=rs("classid")
		title=nowml(rs("class"))
		w "[<a href=""admin.asp?sid="&sid&"&amp;id="&id&""">管理</a>]"&id&"."&title&"<br/>"
		rs.moveNext
	Next
	w showsPage("bbs.asp", "p:"&p, page, pageCount)

Else
	w "暂时没有帖子！"
end if
rs.close
set rs=nothing

w "<br/>----------"

call bbsLast
%>